home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / INRIP.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  4.6 KB  |  58 lines
  1.  
  2. *RIPPLE DOWN ARRAY                                                              
  3. *A IS ARRAY LOCATION                                                            
  4. *L IS LENGTH OF ARRAY                                                           
  5. *                                                                               
  6. INRIP $MACRO  A,L                                                               
  7.        $IF  L.V>16                                                              
  8.        INRIP :A:+16,:L:-16                                                      
  9.        $ENDIF                                                                   
  10.        $IF  L.V>15                                                              
  11.        DMOV :A:+15                                                              
  12.        $ENDIF                                                                   
  13.        $IF  L.V>14                                                              
  14.        DMOV :A:+14                                                              
  15.        $ENDIF                                                                   
  16.        $IF  L.V>13                                                              
  17.        DMOV :A:+13                                                              
  18.        $ENDIF                                                                   
  19.        $IF  L.V>12                                                              
  20.        DMOV :A:+12                                                              
  21.        $ENDIF                                                                   
  22.        $IF  L.V>11                                                              
  23.        DMOV :A:+11                                                              
  24.        $ENDIF                                                                   
  25.        $IF  L.V>10                                                              
  26.        DMOV :A:+10                                                              
  27.        $ENDIF                                                                   
  28.        $IF  L.V>9                                                               
  29.        DMOV :A:+9                                                               
  30.        $ENDIF                                                                   
  31.        $IF  L.V>8                                                               
  32.        DMOV :A:+8                                                               
  33.        $ENDIF                                                                   
  34.        $IF  L.V>7                                                               
  35.        DMOV :A:+7                                                               
  36.        $ENDIF                                                                   
  37.        $IF  L.V>6                                                               
  38.        DMOV :A:+6                                                               
  39.        $ENDIF                                                                   
  40.        $IF  L.V>5                                                               
  41.        DMOV :A:+5                                                               
  42.        $ENDIF                                                                   
  43.        $IF  L.V>4                                                               
  44.        DMOV :A:+4                                                               
  45.        $ENDIF                                                                   
  46.        $IF  L.V>3                                                               
  47.        DMOV :A:+3                                                               
  48.        $ENDIF                                                                   
  49.        $IF  L.V>2                                                               
  50.        DMOV :A:+2                                                               
  51.        $ENDIF                                                                   
  52.        $IF  L.V>1                                                               
  53.        DMOV :A:+1                                                               
  54.        $ENDIF                                                                   
  55.        $IF  L.V>0                                                               
  56.        DMOV :A:                                                                 
  57.        $ENDIF                                                                   
  58.        $END